home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / game / board / uzemicz1.lha / Loader.AMOS / Loader.amosSourceCode < prev    next >
AMOS Source Code  |  1997-07-24  |  415b  |  16 lines
  1. 'Loader pro ï¿½zem�
  2. 'Last change: 24.07.97 
  3. '----------------
  4. Amos To Back : Amos To Front 
  5. Amos Lock 
  6. Screen Open 0,100,70,8,Lowres
  7. Curs Off : Flash Off : Cls 0
  8. Paste Bob 0,0,1
  9. Screen Open 1,640,512,8,Hires+Laced
  10. Curs Off : Flash Off : Cls 0 : Hide 
  11. Get Sprite Palette 
  12. For X=0 To 70
  13.    Screen Copy 0,0,X,99,X+1 To 1,540,X
  14.    Wait Vbl 
  15. Next X
  16. If Exist("HDD") Then Run "intro2.amos" Else Run "Uzemi_A:Intro2.Amos"